home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / putz / putzdo.d < prev    next >
Text File  |  1997-10-26  |  836b  |  35 lines
  1. DEFINITION MODULE PutzDo;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. (* MM2 *)
  6. FROM Lists      IMPORT  List;
  7.  
  8. (* CAT und CatPutz *)
  9.  
  10. FROM PutzTypes          IMPORT ptrGrEntry, putzOptsRec;
  11.  
  12. PROCEDURE CountSelectedEntries (gr: List): INTEGER;
  13.  
  14. PROCEDURE FirstSelectedGroup (gr : List) : ADDRESS;
  15.  
  16. PROCEDURE NextSelectedGroup (gr : List; currentGroup: INTEGER) : ADDRESS;
  17.  
  18. PROCEDURE GetGroupEntry (index : INTEGER) : ptrGrEntry;
  19.  
  20. PROCEDURE SelectAll( select : BOOLEAN);
  21.  
  22. PROCEDURE CalcTotals;
  23.  
  24. PROCEDURE PerformDelete(wdwHandle: INTEGER);
  25.  
  26. PROCEDURE InitDelete(wdwHandle: INTEGER);
  27.  
  28. PROCEDURE InitGroupFlags (groupIndex: INTEGER; doAlts: BOOLEAN; VAR ok: BOOLEAN): putzOptsRec;
  29.  
  30. PROCEDURE SetGroupFlags (groupIndex: INTEGER; REF putzOpts: putzOptsRec);
  31.  
  32. PROCEDURE DeleteGroupFlags (groupIndex: INTEGER);
  33.  
  34. END PutzDo.
  35.